0 GOTO601: REM COPYRIGHT 1993 - COMPUTE PUBLICATIONS INTL LTD
5 F=0:DIMN$(50):PRINT"[147]":POKE53281,0:POKE53280,2:J=56320:K=56321
6 Q=126:W=125:E=254:R=253:Y=111:U=239:PRINTCHR$(142):PRINTCHR$(8)
7 X$="[159]                ":Y$="[146]                [153]"
9 DATA,"[159]                ","[159]                "
190 READN$(F):IFN$(F)="*"THENB=F-3:N$(F)=X$:F=F+1:N$(F)=X$:GOTO200
195 F=F+1:GOTO190
200 PRINT"             [158]AUTO LOADER":POKE198,0:L=1:OPEN15,8,15,"I":CLOSE15
210 PRINT"[152][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
215 PRINT"[152][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
216 PRINT"";"[150] USE CURSOR KEYS OR JOYSTICK TO SELECT"
217 PRINT"     PRESS 'RETURN' OR 'FIRE' TO LOAD."
230 PRINT"[153]":I=L
235 PRINT"[153]";N$(I);Y$:L=I:I=I+1
240 PRINT"";N$(I);Y$:I=I+1
245 PRINT"[158]";N$(I);Y$:B$=N$(I):I=I+1
250 PRINT"[153]";N$(I);Y$:I=I+1
255 PRINT"";N$(I);Y$:I=I+1
405 IFPEEK(J)=QORPEEK(K)=ETHENIFL<>1THENL=L-1:GOTO230
410 IFPEEK(J)=WORPEEK(K)=RTHENIFL<>BTHENL=L+1:GOTO230
415 IFPEEK(J)=YORPEEK(K)=UTHEN500
450 GETA$:IFA$=""THENIFL<>BTHENL=L+1:GOTO230
455 IFA$="[145]"ORA$=""THENIFL<>1THENL=L-1:GOTO230
460 IFA$=CHR$(13)THEN500
470 GOTO405
500 L=L+2:PRINT"[144][147]LOAD";CHR$(34);N$(L);CHR$(34);",8,1":PRINT"RUN"
505 PRINT"[156]LOADING : [159]";N$(L);"[144]":PRINTCHR$(9)
510 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
600 POKE1024,18:POKE1025,1:POKE1026,11:POKE1027,8:POKE1028,1:POKE1029,14
601 L=15:C=0
602 PRINT"[147][158] MENU MAKER":POKE53281,0:POKE53280,0
603 PRINT" BY R.A.KHAN":IFX=1THEN620
604 PRINT" PRESS '*' TO STOP":PRINT" TYPE IN FILENAME":INPUTA$:L$=L$+A$+","
605 PRINT"[144]";:C=C+1:IFA$="*"THENX=1:GOTO607
606 IFC<>4THEN602
607 G=LEN(L$):L$=LEFT$(L$,G-1):PRINT"[147]";L;"DATA";L$:L$=""
608 PRINT"L="L"+1:X="X":GOTO602"
615 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
620 PRINT"[147]0 POKE770,131:POKE771,164":PRINT"GOTO 630"
622 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
630 POKE198,0:C=600:Q=C+10
631 PRINT"[147]";
632 PRINT"[158]";C:C=C+1:IFC=QTHENPRINT"[144]C="C":Q=C+10:";:GOTO634
633 GOTO632
634 PRINT"IFC=640THENPOKE198,0:RUN9900"
635 PRINT"GOTO631":GOTO636
636 POKE631,19:FORJ=632TO644:POKEJ,13:NEXTJ:POKE198,13:END
9899 END
9900 OPEN15,8,15,"I":CLOSE15:OPEN15,8,15,"S0:MENU":CLOSE15
9905 PRINT"[147]BOOTING MENU...."
9910 POKE770,113:POKE771,168:POKE43,0:POKE44,3:SAVE"MENU",8:END